home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1999 May: Tool Chest / Developer CD Series Tool Chest (Apple Computer)(May 1999).iso / Tool Chest / Development Kits / MPW Related / DTS MPW Goodies / FLookup < prev    next >
Encoding:
Text File  |  1990-09-14  |  182 b   |  12 lines  |  [TEXT/MPS ]

  1. # Lookup dir:
  2. # Fast read-only, directory-only version
  3.  
  4. Set olddir "`Directory`"
  5. Set Exit 0
  6. Directory "{1}"
  7. Open -r
  8. Set xstatus {Status}
  9. Set Exit 1
  10. Directory {olddir}
  11. Exit {xstatus}
  12.